home *** CD-ROM | disk | FTP | other *** search
/ Canon Creative 3 / Canon Creative 3.iso / ereg / itp / Pline32.dll / SCRIPT / LOGON < prev   
Encoding:
Text File  |  1997-01-30  |  11.6 KB  |  588 lines
  1. VERSION 2 BETA BETA BETA
  2.  lcd,$30009,""
  3.  lcd,"",""
  4.  sset,svaru,"V950915"
  5.  set,varl,-1
  6.  set,varg,0
  7.  set,varx,0
  8.  if,varr,<>,0,TOP
  9.  set,varr,3
  10. TOP: set,vare,0
  11.  sset,svare,""
  12.  sset,svarv,""
  13.  add,varl,1
  14.  sset,svarj,file(varl)
  15.  ifeof,NOHUP
  16.  sif,svarj,=,"",TOP
  17.  extract,svarj,"|",1,svari
  18.  extract,svarj,"|",2,svard
  19.  sif,svari,=,"*",TOP
  20.  sif,svard,<>,"",$ENDIF
  21.  lcd,svard,""
  22.  endif
  23.  sif,svari,=,"0",FRECOK
  24.  sif,svari,=,"3",$ENDIF
  25.  extract,svarj,"|",6,svar6
  26.  extract,svarj,"|",4,svar3
  27.  extract,svarj,"|",7,svar7
  28.  extract,svarj,"|",14,svarx
  29.  extract,svarj,"|",15,svars
  30.  sset,svarv,svar6
  31.  sif,svarx,=,"R",$ENDIF
  32.  strcat,svarv,"|regfast|"
  33.  sset,svaro,$30010
  34.  endif
  35.  sif,svarx,=,"O",$ENDIF
  36.  strcat,svarv,"|ordfast|"
  37.  sset,svaro,$30011
  38.  endif
  39.  sif,svarx,=,"F",$ENDIF
  40.  strcat,svarv,"|feefast|"
  41.  sset,svaro,$30012
  42.  endif
  43.  strcat,svarv,svaru
  44.  strcat,svarv,"|PIPEHOST.SCR|$DATE|$TIME|"
  45.  strcat,svarv,svar3
  46.  strcat,svarv,"|"
  47.  strcat,svarv,svar7
  48.  strcat,svarv,"|"
  49.  strcat,svarv,svars
  50.  strcat,svarv,"|"
  51.  endif
  52.  sif,svari,=,"3",FRECOK
  53.  sif,svari,=,"S",NOHUP
  54.  sif,svari,=,"R",$ENDIF
  55.  extract,svarj,"|",3,svard
  56.  val,svard,varl
  57.  add,varl,-1
  58.  endif
  59.  jump,TOP
  60. FRECOK: set,varq,varl
  61.  extract,svarj,"|",3,svar0
  62.  extract,svarj,"|",4,svar3
  63.  extract,svarj,"|",5,svar4
  64.  extract,svarj,"|",6,svar6
  65.  extract,svarj,"|",7,svar7
  66.  extract,svarj,"|",8,svari
  67.  val,svari,var3
  68.  extract,svarj,"|",9,svari
  69.  sif,svari,=,"",$ENDIF
  70.  set,var5,-1
  71.  else
  72.  val,svari,var5
  73.  endif
  74.  extract,svarj,"|",10,svari
  75.  sif,svari,=,"",$ENDIF
  76.  set,var6,-1
  77.  else
  78.  val,svari,var6
  79.  endif
  80.  extract,svarj,"|",11,svari
  81.  sif,svari,=,"",$ENDIF
  82.  set,vard,-1
  83.  else
  84.  val,svari,vard
  85.  endif
  86.  extract,svarj,"|",13,svars
  87.  extract,svarj,"|",14,svarw
  88.  extract,svarj,"|",16,svarq
  89.  extract,svarj,"|",15,svarq
  90.  extract,svarj,"|",16,svarf
  91.  sif,svarq,<>,"",GOTALT
  92.  sset,svarq,svar3
  93. GOTALT: 
  94.  sendpurge,1
  95.  change_timer,55
  96.  sif,svar6,<>,"",L2OK
  97.  sset,svare,$30013
  98.  set,vare,92
  99.  jump,BADEXIT
  100. L2OK: sif,svar3,<>,"",TS1
  101.  sset,svare,$30014
  102.  set,vare,90
  103.  jump,BADEXIT
  104. TS1: if,var3,<>,0,TS2
  105.  set,var3,60
  106. TS2: if,var5,<>,-1,TS3
  107.  set,var5,3
  108. TS3: sif,svar0,<>,"",TS4
  109.  sset,svar0,"2400,N,8,1"
  110. TS4: sif,svar4,<>,"",TS5
  111.  sset,svar4,"AT&F"
  112. TS5: if,var6,<>,-1,TS6
  113.  set,var6,1
  114. TS6: if,vard,<>,-1,TSDONE
  115.  set,vard,3
  116. TSDONE: SETCOMM,svar0
  117.  set,vara,0
  118. WAIT4AT: DROP_CARRIER,0,DROPCAR
  119.  send,"AT",varr
  120.  set,vara,0
  121. LOOKAGN: wait,1
  122.  LOOKFOR,"OK",WAIT1
  123.  LOOKFOR,"0",WAIT1
  124.  add,vara,1
  125.  if,vara,>,3,NORESET
  126.  jump,LOOKAGN
  127. WAIT1: DROP_CARRIER,0,DROPCAR
  128.  if,@carrier,=,0,NOCNOH
  129.  hangup
  130. NOCNOH: send,svar4,varr
  131.  waitfor,"OK",5,MODRES2
  132.  hangup
  133.  add,vara,1
  134.  if,vara,>,3,MODRES2
  135.  jump,WAIT1
  136. MODRES2: set,vara,0
  137. MODT2: send,"ATQ0V1&D2&C1",varr
  138.  waitfor,"OK",5,FORCED
  139.  hangup
  140.  add,vara,1
  141.  if,vara,>,3,NORESET
  142.  jump,MODT2
  143. NORESET: sset,svare,$30015
  144.  set,vare,91
  145.  jump,BADEXIT
  146. FORCED: send,"AT+FCLASS=0",varr
  147.  waitfor,"OK",1,DIAL
  148. DIAL: set,varb,0
  149.  set,varm,0
  150.  set,varn,0
  151.  set,var7,0
  152.  set,var9,0
  153.  add,vart,1
  154. DIALGO: str,vart,svarz
  155.  offhook,1
  156.  set,vara,0
  157.  if,var1,<,1,CHKMORE
  158.  setcomm,"2400,N,8,1"
  159. CHKMORE: if,varb,>=,1,USE2ND
  160.  if,var7,>=,1,USE2ND
  161.  if,var9,>=,1,USE2ND
  162.  jump,DIALIT
  163. USE2ND: setcomm,"2400,N,8,1"
  164.  send,"AT",varr
  165.  waiton,"OK",3,&NEXT,""
  166. DIALIT: flush,2
  167.  send,svar3,varr
  168. LOOP: waiton,"CONNECT",1,&NEXT,""
  169.  lookfor,"CONNECT",CONN
  170.  lookfor,"BUSY",$ENDIF
  171.  add,varb,1
  172.  if,varb,<=,var5,DIALGO
  173.  sset,svare,$30016
  174.  set,vare,80
  175.  jump,BADEXIT
  176.  endif
  177.  lookfor,"NO CARRIER",$ENDIF
  178.  add,var7,1
  179.  if,var7,<=,var5,DIALGO
  180.  sset,svare,$30017
  181.  set,vare,81
  182.  jump,BADEXIT
  183.  endif
  184.  lookfor,"NO DIALTONE",$ENDIF
  185.  sset,svare,$30018
  186.  set,vare,84
  187.  jump,BADEXIT
  188.  endif
  189.  lookfor,"VOICE",$ENDIF
  190.  sset,svare,$30019
  191.  set,vare,83
  192.  jump,BADEXIT
  193.  endif
  194.  lookfor,"login:",START
  195.  add,vara,1
  196.  if,vara,<,var3,LOOP
  197.  add,var9,1
  198.  if,var9,<=,var5,DIALGO
  199.  sset,svare,$30020
  200.  set,vare,82
  201.  jump,BADEXIT
  202. CONN: set,vara,0
  203.  sset,svar1,svar0
  204.  highspeed,0
  205.  sif,svarf,=,"",LOOKB
  206.  Dial,svarf,vars
  207.  set,varx,1
  208.  if,vars,=,0,START
  209.  hangup
  210.  jump,BADAGAIN
  211. LOOKB: waiton,"2400",1,&NEXT,""
  212.  lookfor,"login:",START
  213.  add,vara,1
  214.  if,vara,<,10,LOOKB
  215.  jump,START
  216. START: if,@carrier,=,0,LITEM
  217.  DROP_CARRIER,1,DROPCAR
  218. LITEM: set,vara,0
  219.  set,varz,0
  220.  lookfor,"xnlogin:",$ENDIF
  221.  set,varx,1
  222.  endif
  223.  lookfor,"nlogin:",LOGNGIM
  224.  lookfor,"ylogin:",LOGHGIM
  225. UNEWLP: waiton,"login",1,&NEXT,""
  226.  lookfor,"xnlogin:",$ENDIF
  227.  set,varx,1
  228.  endif
  229.  lookfor,"nlogin:",LOGNGIM
  230.  lookfor,"ylogin:",LOGHGIM
  231.  lookfor,"invalid login",UAG
  232.  lookfor,"Command:",GOTCMD
  233.  add,varz,1
  234.  if,varz,<,10,UNEWLP
  235. UAG: set,varz,0
  236.  send,"huh?",1
  237.  add,vara,1
  238.  if,vara,<,4,UNEWLP
  239.  sset,svare,$30021
  240.  set,vare,70
  241.  jump,BADAGAIN
  242. LOGHGIM: sif,svarv,<>,"",$ENDIF
  243.  set,varw,3
  244.  else
  245.  set,varw,1
  246.  endif
  247.  sset,svarv,""
  248.  jump,LOGTHER
  249. LOGNGIM: set,varw,2
  250. LOGTHER: set,varz,0
  251. LOTA: set,vara,0
  252.  lcd,$30022,""
  253. LOGTAG: login,svar6,varh
  254.  if,varh,=,0,GOTCMD
  255.  sset,svare,$30023
  256.  set,vare,71
  257.  jump,BADAGAIN
  258. GOTCMD: lcd,$30024,""
  259.  trapcomm,svarz
  260.  extract,svarz,"|",2,svarc
  261.  val,svarc,varz
  262.  substr,"8$R@5G2K)QO",varz,1,svard
  263.  set,vara,0
  264.  sset,svarz,"i1 |"
  265.  strcat,svarz,svard
  266.  strcat,svarz,"|"
  267.  strcat,svarz,svar3
  268.  strcat,svarz,"|"
  269.  strcat,svarz,svar1
  270.  strcat,svarz,"|"
  271.  strcat,svarz,svar6
  272.  strcat,svarz,"|"
  273.  strcat,svarz,svaru
  274.  strcat,svarz,"|PIPEHOST.SCR|$DATE|$TIME|"
  275.  strcat,svarz,svar7
  276.  strcat,svarz,"|"
  277.  strcat,svarz,svarw
  278.  strcat,svarz,"|"
  279.  str,vart,svarx
  280.  strcat,svarz,svarx
  281.  strcat,svarz,"|"
  282.  str,varg,svarx
  283.  strcat,svarz,svarx
  284.  strcat,svarz,"|"
  285.  if,varx,=,1,$ENDIF
  286.  strcat,svarz,"X|"
  287.  else
  288.  strcat,svarz,"Z|"
  289.  endif
  290.  strcat,svarz,svars
  291.  strcat,svarz,"|"
  292.  str,var1,svarx
  293.  strcat,svarz,svarx
  294.  str,varb,svarx
  295.  strcat,svarz,svarx
  296.  str,var7,svarx
  297.  strcat,svarz,svarx
  298.  str,var9,svarx
  299.  strcat,svarz,svarx
  300.  strcat,svarz,"|"
  301. SCMD2: send,svarz,1
  302.  waiton,"Command:",20,&NEXT,""
  303.  lookfor,"Bad command",TCMD2
  304.  lookfor,"Command:",BCMD3
  305. TCMD2: add,vara,1
  306.  if,vara,>,5,NOCMD2
  307.  jump,SCMD2
  308. NOCMD2: sset,svare,$30025
  309.  set,vare,72
  310.  jump,BADAGAIN
  311. BCMD3: trapcomm,svarr
  312. PROCF: if,varw,=,3,FAKEREG
  313.  add,varl,1
  314.  sset,svarj,file(varl)
  315.  ifeof,DONECF
  316.  jump,NOTEOF
  317. FAKEREG: set,varw,1
  318.  extract,svarj,"|",2,svarx
  319.  extract,svarj,"|",12,svard
  320.  extract,svarj,"|",13,svarz
  321.  sset,svarj,"2|"
  322.  strcat,svarj,svarx
  323.  strcat,svarj,"|"
  324.  scrcat,svarj,svard
  325.  strcat,svarj,"|"
  326.  strcat,svarj,svarz
  327.  jump,NOTEOF
  328. DONECF: set,varl,-2
  329.  jump,LOGOFF
  330. NOTEOF: sif,svarj,=,"",PROCF
  331.  extract,svarj,"|",1,svari
  332.  extract,svarj,"|",2,svard
  333.  sif,svari,=,"*",PROCF
  334.  sif,svari,=,"1",SHOWDIS
  335.  sif,svari,=,"2",SHOWDIS
  336.  sif,svari,=,"5",SHOWDIS
  337.  sif,svari,=,"6",SHOWDIS
  338.  sif,svari,=,"B",SHOWDIS
  339.  sif,svari,=,"W",SHOWDIS
  340.  jump,PASTDIS
  341. SHOWDIS: sif,svard,<>,"",$ENDIF
  342.  lcd,svard,""
  343.  endif
  344. PASTDIS: sif,svari,=,"2",DOREG
  345.  sif,svari,=,"0",BACKUPL
  346.  sif,svari,=,"3",BACKUPL
  347.  sif,svari,=,"4",DOORD
  348.  sif,svari,=,"B",DOCMD
  349.  sif,svari,=,"W",PWFOR
  350.  sif,svari,=,"S",BACKUPL
  351.  sif,svari,=,"R",BACKUPL
  352.  sif,svari,=,"5",DOFSR
  353.  jump,PROCF
  354. DOFSR: extract,svarj,"|",3,svarx
  355.  extract,svarj,"|",4,svara
  356.  extract,svarj,"|",9,svarb
  357.  sif,svarx,=,"S",$ENDIF
  358.  if,varx,=,0,$ENDIF
  359.  sset,svar8,"uploadz "
  360.  sset,svart,"zmsend,svara,svarb,0,vare"
  361.  endif
  362.  if,varx,=,1,$ENDIF
  363.  sset,svar8,"uploadx "
  364.  sset,svart,"xmsend,svara,vare"
  365.  endif
  366.  gosub,ZMODEM
  367.  else
  368.  if,varx,=,0,$ENDIF
  369.  sset,svar8,"downloadz "
  370.  sset,svart,"zmrecv,svara,svarb,0,vare"
  371.  endif
  372.  if,varx,=,1,$ENDIF
  373.  sset,svar8,"downloadx "
  374.  sset,svart,"xmrecv,svara,svarb,vare"
  375.  endif
  376.  gosub,ZMODEM
  377.  endif
  378.  jump,PROCF
  379. BACKUPL: add,varl,-1
  380.  jump,LOGOFF
  381. PWFOR: extract,svarj,"|",5,svari
  382.  val,svari,vark
  383.  extract,svarj,"|",3,svari
  384.  extract,svarj,"|",4,svark
  385.  send,svari,1
  386.  set,vara,0
  387. WEGLIV: waiton,svark,1,&NEXT,""
  388.  lookfor,svark,GOTWEW
  389.  lookfor,"Command:",PROCF
  390.  add,vara,1
  391.  if,vara,>,vark,PROCF
  392.  jump,WEGLIV
  393. GOTWEW: extract,svarj,"|",6,svari
  394.  sif,svari,=,"0",PROCF
  395.  sif,svari,=,"1",$ENDIF
  396.  extract,svarj,"|",7,svara
  397.  extract,svarj,"|",8,svarb
  398.  if,varx,=,0,$ENDIF
  399.  sset,svar8,"downloadz "
  400.  sset,svart,"zmrecv,svara,svarb,0,vare"
  401.  endif
  402.  if,varx,=,1,$ENDIF
  403.  sset,svar8,"downloadx "
  404.  sset,svart,"xmrecv,svara,svarb,vare"
  405.  endif
  406.  gosub,STARTGS
  407.  endif
  408.  sif,svari,=,"2",$ENDIF
  409.  extract,svarj,"|",7,svara
  410.  extract,svarj,"|",8,svarb
  411.  if,varx,=,0,$ENDIF
  412.  sset,svar8,"uploadz "
  413.  sset,svart,"zmsend,svara,svarb,0,vare"
  414.  endif
  415.  if,varx,=,1,$ENDIF
  416.  sset,svar8,"uploadx "
  417.  sset,svart,"xmsend,svara,vare"
  418.  endif
  419.  gosub,STARTGS
  420.  endif
  421.  jump,PROCF
  422. DOCMD: set,vara,0
  423. TRYDA: extract,svarj,"|",3,svarz
  424.  send,svarz,1
  425.  waiton,"Command:",5,&NEXT,""
  426.  lookfor,"Bad command",TRYDOC
  427.  lookfor,"procedure...",$ENDIF
  428.  sset,svara,""
  429.  sset,svarb,""
  430.  sset,svart,"zmrecv,svara,svarb,0,vare"
  431.  sset,svar8,"downloadz"
  432.  gosub,STARTGS
  433.  endif
  434.  lookfor,"Command:",PROCF
  435. TRYDOC: add,vara,1
  436.  if,vara,<,3,TRYDA
  437.  sset,svare,$30026
  438.  set,vare,69
  439.  jump,BADAGAIN
  440. FLEFAST: lcd,svaro,""
  441.  extract,svarj,"|",12,svard
  442.  extract,svarj,"|",13,svarz
  443.  gosub,SENDREG
  444.  DROP_CARRIER,0,DROPCAR
  445.  if,vare,=,0,PROCF
  446.  sset,svare,$30030
  447.  set,vare,63
  448.  jump,BADAGAIN
  449. DOREG: set,varv,0
  450.  jump,STARTDO
  451. DOORD: set,varv,1
  452. STARTDO: set,vara,0
  453. STARTR: if,varv,=,0,$ENDIF
  454.  lcd,$30031,""
  455.  send,"reg",1
  456.  else
  457.  lcd,$30032,""
  458.  send,"order",1
  459.  endif
  460.  waiton,"procedure...",5,&NEXT,""
  461.  lookfor,"Bad command",TBC
  462.  lookfor,"procedure...",STARTZ
  463. TBC: add,vara,1
  464.  if,vara,<,3,STARTR
  465.  sset,svare,$30033
  466.  set,vare,64
  467.  jump,BADAGAIN
  468. STARTZ: extract,svarj,"|",3,svard
  469.  extract,svarj,"|",4,svarz
  470.  gosub,SENDREG
  471.  if,vare,=,0,STARTG
  472.  sset,svare,$30034
  473.  set,vare,63
  474.  jump,BADAGAIN
  475. STARTG: set,vara,0
  476. LOOKCAG: waiton,"Command:",10,&NEXT,""
  477.  lookfor,"Bad command",WAKEU
  478.  lookfor,"Command:",GOTC1
  479. WAKEU: send,"record Waking you up...",1
  480.  add,vara,1
  481.  if,vara,<,3,LOOKCAG
  482.  sset,svare,$30035
  483.  set,vare,61
  484.  jump,BADAGAIN
  485. GOTC1: lcd,$30036,""
  486.  jump,PROCF
  487. ZMODEM: set,vara,0
  488. ZMODEMG: send,svar8,0
  489.  send,svarb,1
  490.  waiton,"procedure...",5,&NEXT,""
  491.  lookfor,"Bad command",BADSR
  492.  lookfor,"procedure...",STARTGS
  493.  lookfor,"not found",NOTFND
  494. BADSR: add,vara,1
  495.  if,vara,<,3,ZMODEMG
  496.  sset,svare,$30037
  497.  set,vare,65
  498.  jump,BADAGAIN
  499. NOTFND: jump,PROCF
  500. BSTARTGS: gosub,STARTGS
  501.  jump,PROCF
  502. STARTGS: sif,svar8,=,"downloadz ",WERECV
  503.  sif,svar8,=,"downloadx ",WERECV
  504.  jump,FTD
  505. WERECV: lcd,$30038,svara
  506. FTD: exec_string,svart
  507.  if,vare,=,0,GOODSR
  508.  lcd,$30039,svara
  509.  return
  510. GOODSR: sif,svar8,=,"uploadz ",FILESENT
  511.  sif,svar8,=,"uploadx ",FILESENT
  512.  add,varm,1
  513.  return
  514. FILESENT: add,varn,1
  515.  return
  516. SENDREG: sif,svarz,<>,"1",GOREG
  517.  compress,svard,"$FLECOMP.TMP",vare
  518.  if,vare,<>,0,GOREG
  519.  sset,svard,"$FLECOMP.TMP"
  520. GOREG: if,varx,=,1,$ENDIF
  521.  xmsend,svard,vare
  522.  else
  523.  zmsend,svard,"",0,vare
  524.  endif
  525.  return
  526. LOGOFF: if,@carrier,=,0,OKEXIT
  527.  DROP_CARRIER,1,OKEXIT
  528.  lcd,$30041,""
  529.  set,vara,0
  530. SLOGOFF: send,"exit",1
  531.  waiton,"Goodbye",5,&NEXT,""
  532.  lookfor,"Goodbye",WEHANG
  533.  add,vara,1
  534.  if,vara,>,5,NOLOGOFF
  535.  jump,SLOGOFF
  536. NOLOGOFF: sset,svare,$30042
  537.  set,vare,75
  538.  jump,BADAGAIN
  539. WEHANG: if,@carrier,=,0,OKEXIT
  540.  hangup
  541. OKEXIT: lcd,$30043,""
  542.  set,var1,0
  543.  set,var2,0
  544.  if,varl,<>,-2,TOP
  545.  jump,NOHUP
  546. DROPCAR: OFFHOOK,0
  547.  add,var1,1
  548.  if,var1,>,var6,DIE
  549.  if,var1,=,var6,$ENDIF
  550.  set,varx,1
  551.  endif
  552.  set,varl,varq
  553.  add,varl,-1
  554.  lcd,$30044,""
  555.  add,varg,1
  556.  jump,TOP
  557. BADAGAIN: OFFHOOK,0
  558.  add,var2,1
  559.  if,var2,>,vard,DIE2
  560.  if,var2,=,vard,$ENDIF
  561.  set,varx,1
  562.  endif
  563.  set,varl,varq
  564.  add,varl,-1
  565.  lcd,svare,""
  566.  add,varg,1
  567.  wait,1
  568.  jump,TOP
  569. DIE: set,vare,1
  570.  sset,svare,$30045
  571.  jump,BADEXIT
  572. DIE2: set,vare,3
  573.  sset,svare,$30046
  574.  jump,BADEXIT
  575. BADEXIT: sif,svare,<>,"",BE2ON
  576.  set,vare,99
  577.  sset,svare,$30047
  578. BE2ON: strcat,svaru," "
  579.  lcd,svaru,svare
  580.  if,vare,>,89,NOHUP0
  581.  DROP_CARRIER,0,DROPCAR
  582.  if,@carrier,=,0,NOHUP0
  583.  hangup
  584. NOHUP0: hangup
  585.  escape,"1",vare
  586. NOHUP: wait,1
  587.  exit,vare
  588.